! ==============================================================================
! This file is part of GoMars since 2023.
!
! GoMars is a Martian general circulation model developed in Institute of
! Atmospheric Physics (IAP), Chinese Academy of Sciences (CAS).
!
! GMCORE is a dynamical core for atmospheric model used in GoMars.
!
! GoMars and GMCORE are distributed in the hope that it will be useful, but
! WITHOUT ANY WARRANTY. You may contact authors for helping or cooperation.
! ==============================================================================

module gomars_v1_pbl_mod

  use gomars_v1_const_mod

  implicit none

  private

  public gomars_v1_pbl_init
  public gomars_v1_pbl_final

  integer , public, parameter :: nvar   = 4

  real(r8), public, parameter :: rmu    = 1.0_r8
  real(r8), public, parameter :: z00    = 0.01_r8
  real(r8), public, parameter :: epsl0  = 0.1_r8
  ! Maximum mixing length (m)
  real(r8), public, parameter :: ml0    = 150.0_r8
  real(r8), public, parameter :: alphl0 = 0.1_r8
  ! Critical Richardson number above which turbulence is suppressed
  real(r8), public, parameter :: ric    = 0.195_r8

  real(r8), parameter :: rmu1mu = (1 - rmu) / rmu
  real(r8) dtmu

contains

  subroutine gomars_v1_pbl_init()

    dtmu = dt * rmu

  end subroutine gomars_v1_pbl_init

  subroutine gomars_v1_pbl_final()

  end subroutine gomars_v1_pbl_final

end module gomars_v1_pbl_mod